home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Src / t2.h < prev    next >
Text File  |  1993-02-02  |  459b  |  17 lines
  1. /* 
  2.   * Private include file for
  3.   * tables
  4.   */
  5.  
  6. /* Internal values */
  7. #define MIN_TABLE_SIZE     16
  8. #define TABLE_FILL_FACTOR 4
  9. #define KEYOF(x)    CAR(x)
  10. #define VALOF(x)    CDR(x)
  11. #define ELTP(x)     is_cons(x)
  12.  
  13. #define T_THRESH(x)    (is_cons(table_threshold(x)) ? CAR(table_threshold(x)) : table_threshold(x))
  14. #define T_NELTS(x)    (is_cons(table_threshold(x))                     \
  15.              ? intval(table_population(x))-intval(CDR(table_threshold(x)))    \
  16.              : intval(table_population(x)))
  17.